#Bemvindo NotaR

carambola <- c("abacaxi","beterraba")
salada<- c("beringela", "batata")

#Remocao Objetos

load(file="bichos.rdata")
ls()
rm(temp1,temp2,temp3)
save(anfibios,aves,mamiferos, file="bichos01.rdata")

#Objetos de Data

hoje <- Sys.Date()
class (hoje)
copa.70 <- "1970-06-21"
class (copa.70)
copa.70 <- as.Date(copa.70, fotmat= "1970/06/21")
copa.70
class(copa.70)
hoje - copa.70
dif <- (hoje - copa.70)
dif
hoje + 43
outrodia <- (hoje + 43)

